home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / houCons.dxr / interface_803_intInsetOverlay behave.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  1.1 KB  |  54 lines

  1. property mySprite, myLoc, myType, displaySprite
  2.  
  3. on beginSprite me
  4.   mySprite = me.spriteNum
  5.   myLoc = the loc of sprite mySprite
  6.   myType = #intInsetOverlay
  7.   hide(me)
  8. end
  9.  
  10. on hide me
  11.   set the loc of sprite mySprite to point(-10000, -10000)
  12. end
  13.  
  14. on show me
  15.   set the loc of sprite mySprite to myLoc
  16. end
  17.  
  18. on sendSpriteNum me, whichType
  19.   if whichType = me.myType then
  20.     return mySprite
  21.   end if
  22. end
  23.  
  24. on KillInteriorInset me
  25.   hide(me)
  26. end
  27.  
  28. on interiorOptionPurchased me
  29.   show(me)
  30. end
  31.  
  32. on enterFrame me
  33.   global gConMan
  34.   if not (label(0) = label("int_intAm")) then
  35.     exit
  36.   end if
  37.   if not sendSprite(mySprite - 1, #insetShowing) then
  38.     hide(me)
  39.   else
  40.     if voidp(displaySprite) then
  41.       displaySprite = sendAllSprites(#sendSpriteNum, #IntDisplay)
  42.     end if
  43.     curInteriorDecision = getNextInteriorDecision(gConMan)
  44.     curChoice = sendSprite(displaySprite, #getCurChoice)
  45.     if curInteriorDecision = #interiorAmenities then
  46.       if interiorItemPurchased(gConMan, curChoice) then
  47.         show(me)
  48.       else
  49.         hide(me)
  50.       end if
  51.     end if
  52.   end if
  53. end
  54.